home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Commercial / AmigaWriter2Demo / Tools / NewWPA8 / NewWPA8 Install-Script < prev    next >
Encoding:
Text File  |  1999-03-25  |  7.7 KB  |  214 lines
  1. ;*************************************************************************
  2. ;*  NewWPA8 Installer by Andre Dörffler                                  *
  3. ;*                                                                       *                                *
  4. ;*  ©1999 HAAGE & PARTNER Computer GmbH                                  *
  5. ;*                                                                       *
  6. ;*************************************************************************
  7. ;
  8. ; $VER: NewWPA8 (24 Mar 99)
  9.  
  10. (complete 0)
  11.  
  12. ; Version No. and Date
  13.  
  14. ;====================================================================
  15. ; Initialisation
  16.  
  17. (set @default-dest "")
  18.  
  19. (set os-version (/ (getversion) 65536))
  20. (set os-13 (< os-version 36))
  21. (set os-20 (>= os-version 36))
  22. (set os-21 (>= os-version 38))
  23.  
  24. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  25.  
  26. ;====================================================================
  27. ; Init (English)
  28.  
  29.     (set #yeskey "Yes")
  30.     (set #nokey "No")
  31.  
  32.     (set #welcome (cat "\nWelcome to the installation of \n\n"
  33.          "NewWPA8\n\n"
  34.          "This script copies all the files of NewWPA8 "
  35.          " onto your hard disk and modiefies your startup-sequence"
  36.          ))
  37.  
  38.     (set #prp-wpa8 (cat "\n"
  39.         "Attention:\n\n"
  40.         "If you own a A1200 or A4000 without a graphicsboard (with AGA-chipset) "
  41.         "there might be problems. \nTo solve these, the NewWPA8 patch "
  42.         "will be added to your startup-sequence (your startup-sequence "
  43.         "will be backed up).\n If you don`t want this, "
  44.         "choose SKIP THIS PART."
  45.         ))
  46.  
  47.     (set #wpa8-help (cat "Attention:\n"
  48.         "AmigaOS knows three functions in graphics.library that output "
  49.         "chunky pixels to a RastPort: WritePixelLine8, WritePixelArray8 "
  50.         "and WriteChunkyPixels. \n"
  51.         "The original versions of these routines in the KickstartROM "
  52.         "are rather slow and have a bug that trashes the chunky source "
  53.         "buffer. \n"
  54.         "This patch installs improved versions that are often faster by "
  55.         "a factor of 10 (on a fast CPU). \n"
  56.         "-- Requirements:\n"
  57.         "AmigaOS3.0 or AmigaOS3.1. The WriteChunkyPixels function exists "
  58.         "only in AmigaOS3.1.\n"
  59.         "An 68020 or higher CPU.\n"
  60.         "-- Operation:\n"
  61.         "The core of the patch are four routines that translate chunky data "
  62.         "into 1..4 bitplanes and that write only complete words into a bitmap. "
  63.         "For destinations with 5..8 bitplanes the planes are written in two "
  64.         "passes translating upper and lower nibbles of the source data. "
  65.         "If the destination rectangle is not aligned to words in the bitmap "
  66.         "the unaligned border words are first converted into a buffer on the "
  67.         "stack and then masked and copied to the destination bitmap. "
  68.         "The patch utilizes the DoHookClipRects() function of AmigaOS3.x to "
  69.         "write directly into the destination bitmap, even for layered RastPorts. "
  70.         "This avoids completely the temporary bitmap you pass to the WPL8 and "
  71.         "WPA8 functions, but of course programs must not rely on this. "
  72.         "-- Installation:\n"
  73.         "Add the newwpa8 command directly after SetPatch in your startup-sequence. "
  74.         "The patch detaches itself from the Shell, there is no need to RUN it. "
  75.         "It is most important that the patch is run before any other patch to "
  76.         "the graphics system like the CyberGraphics driver that intercepts "
  77.         "the calls itself."
  78.         ))
  79.  
  80.  
  81. (if (= @language "deutsch") (
  82.  
  83.     (set #yeskey "Ja")
  84.     (set #nokey "Nein")
  85.  
  86.     (set #welcome (cat "\nWillkommen bei der Installation von \n\n"
  87.          "NewWPA8\n\n"
  88.          "Dieses Skript kopiert NewWPA8 auf Ihre Festplatte "
  89.          "und ändert die startup-sequence."
  90.          ))
  91.  
  92.     (set #prp-wpa8 (cat "\n"
  93.         "Aufgepasst:\n\n"
  94.         "Wenn sie einen A1200 oder A4000 ohne Grafikkarte (mit AGA-Chipset) "
  95.         "betreiben, kann es zu Problemen kommen. Der Patch NewWPA8 behebt diese.\n "
  96.         "Dazu wird das Kommando NewWPA8 in ihre startup-sequence eingefügt "
  97.         "(Ihre startup-sequence wird zuvor gesichert).\n "
  98.         "Wenn sie dies nicht wollen, wählen sie ÜBERSPRINGEN. "
  99.         ))
  100.  
  101.     (set #wpa8c-help (cat "Achtung:\n"
  102.         "Das AmigaOS kennt drei Funktionen in der graphics.library die Chunky-Pixel "
  103.         "auf einen RastPort ausgeben: WritePixelLine8, WritePixelArray8 und "
  104.         "WriteChunkyPixels.\n"
  105.         "Die Original-Versionen dieser Routinen im Kickstart-ROM sind ziemlich "
  106.         "langsam und haben einen Fehler, der den Chunky-Quellbuffer zerstört.\n "
  107.         "Dieser Patch installiert verbesserte Versionen dieser Funktionen, die "
  108.         "mit einem schnellen Prozessor oft 10 mal schneller sind\n"
  109.         "-- Systemvoraussetzungen:\n"
  110.         "AmigaOS 3.0 or AmigaOS 3.1. Die WriteChunkyPixels-Funktion gibt es nur im "
  111.         "AmigaOS 3.1. \n"
  112.         "Einen Prozessor ab 68020.\n"
  113.         "-- Wie funktioniert es?\n"
  114.         "Der Kern des Patches besteht aus vier Routinen die Chunky-Daten in "
  115.         "Bitplanes übersetzen.\n"
  116.         "-- Installation: \n"
  117.         "Fügen sie den NewWPA8-Befehl direkt nach SetPatch in ihre Startup-Sequence "
  118.         "ein. Der Patch löst sich selbständig von der Shell, sie brauchen ihn nicht "
  119.         "mit dem Run-Befehl zu starten. \n"
  120.         "Es ist sehr wichtig, daß der Patch vor allen anderen Patches, die diese "
  121.         "Funktion Grafiksystem betreffen, wie z.B. CyberGraphX und Picasso 96, "
  122.         "gestartet wird."
  123.     ))
  124. ))
  125.  
  126. ; // Die Pfadnamen der einzelnen Quell-Dateien.
  127. (set source-insert                  "insert")
  128. (set source-NewWPA8                 "NewWPA8")
  129.  
  130. ;=====================================================================================
  131. ; Beginn der Installation
  132. ;=====================================================================================
  133.  
  134. ; // needs OS 3.0 !!!
  135. (if (< (/ (getversion) 65536) 39)
  136.     (
  137.         (message #wrongos)
  138.         (exit (quiet))
  139.     )
  140. )
  141.  
  142. ; Intro
  143. (message #welcome)
  144. (welcome)
  145. (complete 10)
  146.  
  147. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  148.  
  149. (set act-user-level @user-level)
  150. (user 1)
  151.  
  152. (complete 20)
  153.  
  154. ; // Nun wird insert ins RAM gehauen, damit es dann nicht nachgeladen werden muss
  155.  
  156. (copyfiles
  157.         (dest "RAM:")
  158.         (source source-insert)
  159. )
  160.  
  161. (complete 30)
  162.  
  163. ;// Nun wird der NewWPA8 Patch installiert
  164. ;// *** Done by AND
  165.  
  166. (set #wpa8-skip (cat "Skip this part"))
  167. (set #wpa8-proceed (cat "Insert NewWPA8"))
  168.  
  169. (if(= @language "deutsch") (
  170.    (set #wpa8-skip (cat "Diesen Teil Überspringen"))
  171.    (set #wpa8-proceed (cat "NewWPA8 einfügen"))
  172. ))
  173. (if((askbool (prompt #prp-wpa8)
  174.              (help #wpa8-help)
  175.              (choices #wpa8-proceed #wpa8-skip))) (
  176.     (run "ram:insert s:startup-sequence -i NewWPA8 -p setpatch")
  177.     (complete 50)
  178.     (copyfiles (dest "C:")
  179.                (source source-NewWPA8)
  180.     )
  181. ))
  182.  
  183. (complete 70)
  184.  
  185. ;==================================================================================
  186. ; Aufraeumen
  187.  
  188. (delete "RAM:LHeX")
  189. (delete "RAM:insert")
  190.  
  191. (complete 100)
  192.  
  193. ; ------- FERTIG
  194.  
  195. (set #endnow (cat "Installation of NewWPA8 patch completed.\n"
  196.     "If the line:\n\n NewWPA8 \n\ndoesn`t appear "
  197.     "in your Startup-Sequence, you failed the installation. "
  198.     "So please insert it manually.\n\n"
  199.     "Best wishes...\n\n"
  200.     "HAAGE & PARTNER Computer, Germany"
  201.     ))
  202.  
  203. (if (= @language "deutsch") (
  204.  
  205.     (set #endnow (cat "\nInstallation von NewWPA8  beendet.\n\n"
  206.         "Falls die Zeile:\n\n NewWPA8\n\nnicht in Ihre Startup-Sequence "
  207.         "eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  208.         "\n\nWir wünschen ihnen viel Erfolg mit NewWPA8!\n\n"
  209.         "HAAGE & PARTNER Computer"
  210.     ))
  211. ))
  212.  
  213. (message #endnow)
  214.